perm filename TMP.TMP[WEB,ALS]2 blob
sn#672764 filedate 1982-08-13 generic text, type C, neo UTF8
COMMENT ā VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 @ The following module may be useful to add twenty lines of code to a
C00004 ENDMK
Cā;
@ The following module may be useful to add twenty lines of code to a
procedure or to the main program to increase its length, just to make sure
that it was not already marginally large.
@<Add twenty lines of code@>=
if xchar['101] <> 'A' then error;
if xchar['101] <> 'A' then error;
if xchar['101] <> 'A' then error;
if xchar['101] <> 'A' then error;
if xchar['101] <> 'A' then error;
if xchar['101] <> 'A' then error;
if xchar['101] <> 'A' then error;
if xchar['101] <> 'A' then error;
if xchar['101] <> 'A' then error;
if xchar['101] <> 'A' then error;
if xchar['101] <> 'A' then error;
if xchar['101] <> 'A' then error;
if xchar['101] <> 'A' then error;
if xchar['101] <> 'A' then error;
if xchar['101] <> 'A' then error;
if xchar['101] <> 'A' then error;
if xchar['101] <> 'A' then error;
if xchar['101] <> 'A' then error;
if xchar['101] <> 'A' then error;
if xchar['101] <> 'A' then error;